home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / pwd.arc / PWD2.BAS < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  305 b   |  9 lines
  1. 1 ON ERROR GOTO 6:COLOR 7,8:CLS:INPUT "ENTER THE FILENAME FOR THIS PROGRAM (NO EXT.):",F$
  2. 2 OPEN F$ FOR INPUT AS #1
  3. 3 INPUT #1,PWD$:CLOSE
  4. 4 CLS:PRINT "ENTER PASSWORD:":COLOR 0:LOCATE 1,17:INPUT;PW$
  5. 5 IF PW$=PWD$ THEN 7 ELSE 6
  6. 6 COLOR 7,8:CLS:PRINT CHR$(7);"WRONG ANSWER! - GOODBYE":END
  7. 7 END
  8. 9 '
  9.